*************************************
*     PROGRAMME Call                                            *
*     PIC 16F88                                                              *
*     Ce programme permet de mettre en faire un     *
*    appel vers 3 sous programmes                             *
**************************************

:debut                       ;
MOVLW 255         ; 255 => reg w
MOVWF 32           ; contenu w => @32
MOVLW 1             ; 1 => reg w
CALL tempo          ; appel S/P tempo 
ADDWF 32,w       ; addition w+contenu@32 => w
MOVLW 128         ; 128 => reg w
goto debut             ;

END                       ; Fin du programme

******* SP tempo *********
:tempo    ;
MOVWF PORTB    ; envoi w sur port B
call tempo2            ; appel S/P tempo2
MOVWF 34           ; contenu de w => @34
RETURN                ; retour de s/p

******* SP tempo2 *********
:tempo2    ;
MOVWF PORTA    ; envoi w sur port A
call tempo3                ; appel S/P tempo3
MOVLW 128             ; 1 => reg w
RETURN                     ; retour de s/p

******* SP tempo3 *********
:tempo3   ;
MOVLW 10             ; 10 => reg w
RETURN                  ; retour de s/p






























































































































